home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / lvhandler.gc < prev    next >
Text File  |  1999-05-14  |  2KB  |  88 lines
  1. G4C
  2.  
  3. ; This script shows simple listview handling techniques
  4. ; -------------------------------------------------------------
  5.  
  6.  
  7. WINBIG 188 52 248 109 'LVHandler.gc'
  8. wintype 11110001
  9.  
  10. ; a fancy 3D title
  11. CTEXT 12 4 "Handling a List" #screen 8 2 0 00011
  12.  
  13.  
  14. ; -------------------------------------------------------------
  15. ;       On loading we create a small list in a file in ram:
  16. ; -------------------------------------------------------------
  17.  
  18. xonload
  19.  
  20.     ; an easy way to create a file is to declare an env:
  21.     ; variable and then copy it to where ever you want.
  22.     ; The \n thingies are ENTER characters..
  23.  
  24.     .dummy = 'Monday\nTuesday\nWednesday\nThursday\nFriday\nSaturday\nSunday'
  25.     rename env:.dummy ram:List_one
  26.  
  27.     ; now that we have a file called ram:List_one, load
  28.     ; it into our listview..
  29.  
  30.     lvuse LVHandler.gc 1
  31.     lvchange RAM:List_one
  32.  
  33.     ; and open our window
  34.  
  35.     guiopen LVHandler.gc
  36.  
  37.  
  38. ; -------------------------------------------------------------
  39. ;       On closing, clean up and quit
  40. ; -------------------------------------------------------------
  41.  
  42. xonclose
  43.  
  44.     guiquit LVHandler.gc
  45.     delete ram:List_#?
  46.  
  47.  
  48. ; -------------------------------------------------------------
  49. ;       the status text box
  50. ; -------------------------------------------------------------
  51.  
  52. TEXT 12 20 225 14 'Showing RAM:List_one' 40 BOX
  53.     gadid 2
  54.  
  55. ; -------------------------------------------------------------
  56. ;       The listview
  57. ;       note we start with '' as file name, indicating that
  58. ;       we don't want a file yet.. we LVChange it later
  59. ; -------------------------------------------------------------
  60.  
  61. XLISTVIEW 112 36 126 68 '' v '' 0 TXT
  62.     gadid 1
  63.  
  64.  
  65. ; -------------------------------------------------------------
  66. ;       3 buttons which take some actions
  67. ; -------------------------------------------------------------
  68.  
  69. XBUTTON 12 56 95 14 'Sort it'
  70.     lvuse LVHandler.gc 1        ; use our list
  71.     LVSort ASC            ; sort it..
  72.     ; and tell everyone by updating the status text box
  73.     update LVHandler.gc 2 'Sorted the List..'
  74.  
  75. XBUTTON 12 72 95 14 'Save it'
  76.     lvuse LVHandler.gc 1
  77.     LVSave 'Ram:List_two'
  78.     update LVHandler.gc 2 'Saved List as RAM:List_two'
  79.  
  80. XBUTTON 12 88 95 14 'Revert'
  81.     lvuse LVHandler.gc 1
  82.     lvchange RAM:List_one
  83.     update LVHandler.gc 2 'Reloaded original List.'
  84.  
  85.  
  86.  
  87.  
  88.